results %>% 
  count(athlete_name, name = "Number of Parkruns")
## # A tibble: 5 × 2
##   athlete_name `Number of Parkruns`
##   <chr>                       <int>
## 1 Bella                          37
## 2 Kat                            14
## 3 Lucia                          11
## 4 Matt                           71
## 5 Zach                           30